﻿Imports Phila
Imports Phila.Sql
Imports Phila.CommonClasses

Public Class CountryTours
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            If Not Request.QueryString("cid") Is Nothing Then
                Fill_dtList(dlTours, "select t.*, ct.*, c.Name as CountryName from ptn_Tours t inner join ptn_CatZoneTours ct on ct.TourId=t.Id inner join ptn_Countries c on c.Id=ct.CountryId where t.IsActive=1 and ct.CountryId=" & Request.QueryString("cid"))
                'Dim ZoneName As Label = dlTours.Items(0).FindControl("lblZone")
                'ltrTitle.Text = "<h2>Tours in " & ZoneName.Text & " </h2>"
                Dim txt As Array
                txt = RetriveData("select Name from ptn_Countries where Id=" & Request.QueryString("cid"), 0)
                ltrTitle.Text = "<h2>Tours in " & txt(0) & " </h2>"
                If dlTours.Items.Count = 0 Then
                    lblMsg.Text = "No Records"
                End If
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

End Class